Imports System.Data
Imports Ektron.Cms.Controls

Partial Class courses
    Inherits System.Web.UI.Page


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Not Page.IsPostBack Then
            lblIntroText.Visible = False
            If Not Request.QueryString("sc") Is Nothing Then
                lblIntroText.Visible = True
                Courselist1.Visible = True
                Coursedetail1.Visible = False
            ElseIf Not Request.QueryString("id") Is Nothing Then
                Courselist1.Visible = False
                Coursedetail1.Visible = True
                searchinner.Visible = False
            Else
                Courselist1.Visible = True
                Coursedetail1.Visible = False
            End If
        End If

        Dim lblCustomTitle As Label = Me.Master.FindControl("lblCustomTitle")
        lblCustomTitle.Text = "Courses"
            searchinner.Visible = False
        
    End Sub

    Protected Sub btnCourseSearch_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnCourseSearch.Click
        Courselist1.SearchText = courseText.Text
        Courselist1.SearchCourseInfo()
    End Sub

End Class
